home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Utilities Professional 1-1500
/
Utilities Professional 1-1500 (1994)(WPD)[!].iso
/
12511500
/
var1297.dms
/
var1297.adf
/
Rexx
/
EP_EjectModule.dopus
< prev
next >
Wrap
Text File
|
1993-06-30
|
265b
|
17 lines
/* EaglePlayer - Eject Module (C) DEFECT */
address 'rexx_EP'
options results
status G fil
if result == "no" then do
address 'DOPUS.1'
toptext 'Eagleplayer: No Module loaded !'
end
else do
eject
address 'DOPUS.1'
toptext 'Eagleplayer: Module ejected !'
end